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**F ILE**1D**PASUPDATE | 

PPPPPPPP AAAAAA SSSSSSSS_ UU UU PPPPPPPP § DDDDDDDD AAAAAA ~=*TTTTTTTTTT EEEEEEEEEE | : 
PPPPPPPP AAAAAA SSSSSSSS UU UU PPPPPPPP_  DDDDDDDD AAAAAA __—s‘TTTTTTTTTT EEEEEEEEEE . 
PP PP AA AA SS UU UU PP PP DD DD AA AA TT EE : 
PP PP AA AA SS UU UU PP PP DD DD AA AA TT EE ; 
faa PP AA AA SS UU UU PP PP DD DD AA AA TT EE ; 
bp PP AA AA SS UU UU PP PP DD DD AA AA TT EE | ; 
PPPPPPPP = AA AA SSSSSS_—s- WU UU PPPPPPPP DD DD AA AA TT EEEEEEEE : 
PPPPPPPP = AA AA SSSSSS__——- WU UU PPPPPPPP 0D DD AA AA TT EEEEEEEE : 
be AAAAAAAAAA SS UU UU PP DD DD AAAAAAAAAA TT EE | : 
Be AAAAAAAAAA SS UU UU PP DD DD AAAAAAAAAA TT EE : 
PE AA AA SS UU UU PP DD DD AA AA TT EE _— : 
BE AA AA SS UU UU PP DD DD AA AA TT EE ween : 
di AA AA SSSSSSSS _ UUUUUUUUUU Ss PP DDDDDDDD = AA AA TT EEEEEEEEEE wane 
PP AA AA SSSSSSSS = _YUUUUUUUUU PP DDDDDDDD = AA AA TT EEEEEEEEEE ene | : 

| Py 
LL W111] SSSSSSSS : 
LL peace SSSSSSSS : 
LL I] SS | : 
LL I] SS ‘ 
LL I] SS : 
LL I] $s ; 
LL I] SSSSSS : 
LL I] SSSSSS : 
LL I] SS : 
LL I] SS | e 
LL I] Ss ‘ 
LL I] SS : 
LLLLLLLLLL IIIT] «©=—- SSSSSSSS : 
LLLLLLLLLL «©6ITIIII «©=—s SSSSSSSS | : 
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PA HERATE procedure’ 
T = '1-004' ! File: PASUPDATE.B32 Edit: SBL1004 


1 Oh iegese V4.0-74 Page 1. 
PASRTL.SRC JPASUPDATE .852;1 (1) 


MODULE PASSUPDATE ( 
we 


oO 
So 
= 


BEGIN 


PPPS SELLS T ISIS T TTT TTT TTT TTT e erect rice icici titi cic iit iti itt iii tii iiit 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED _UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS O LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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* 
ie TRANSFERRED. ® 
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® 
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® 
* 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: oompokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONS 
:* SOFTWARE ON EQUIPMENT WHIC 
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+7 
! FACILITY: Pascal Language Support 


' ABSTRACT: 


This module contains PASSUPDATE, which implements the 
VAX-11 Pascal UPDATE procedure. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 29-January-1982 
MODIFIED BY: 


1-001 - Original. SBL_29-January-1982 : ; 
1-002 - Set RBF and Bae before doing SUPDATE. Check Linelimit. 


L -Oct- 
1-003 = Don't check Linelimit, since a new record is not being added 
to the file. SBL 8-Nov-1982 ‘ 
1-004 = Allow UPDATE of sequential organization files, as long as ghey 
are opened for direct access (fixed-length records). SBL 24-Feb-1984 
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PASSUPDATE UPDATE procedure Sep oe 4 02:12:11 AX-11 Bliss-32 V4.0 Page 2. 
et Rec laret tans g-3 Sep-1 1 98: 44 759 PASRTL.SRCIPASUPDATE. 82; 71 . (2) 
; 2¢ O34 } ¥SBTTL ‘Declarations’ 

; 4] 8 5 1 ! PROLOGUE DEFINITIONS: 

= p28 1! 

.? 057 1 

5 4 138 } REQUIRE "RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures 

; 6) 1 7% 

5 6¢ 1246 1°! TABLE OF CONTENTS: 

3 6 125 1! 

; 664 01 § 1 
FH 65 8} 1 FORWARD ROUTINE 
: 66 126 #1 PASSUPDATE: NOVALUE; ' Do an UPDATE 
; oF 0129 1 
; 68 0130 1! 
3 69 0131 1 ! MACROS: 
5 70 01 ¢ 7 3 
$ 71 01 1! NONE 

3 7 Gise 7 § | 
: 7 0135 1 ! EQUATED SYMBOLS: 
3 74 0136 1! 
TS SET 1! NONE 
; 76 0138 1! 

: 77 0139 1°! FIELDS: ’ 

: 78 0140 1! 
3 79 0141 1! NONE 
3 80 o1e8 1! 
3 81 014 1 ! OWN STORAGE: 

3 82 0144 1! 

3 83 0145 1! NONE 


eee eee a 


CALL PASSUPDATE (PFV.mr.r C, ERROR.j.r]) 
FORMAL PARAMETERS: 


PFY - The Pascal File Variable (PFV) passed ¥! reference. 
The structure of the PFV is defined in PASPFV.REQ. | 


B 8 
PASRUPOATE PDATE procedure Jo=sen= 1 38 Og 1e:]I AX-11 Oi legece V4.0-74 Page 3 
1-004 ASSUPDATE = UPDATE procedure 14-Sep-1984 51:59 PASRTL.SRCJPASUPDATE.B852;1 (3). 
85 1 XSBTTL 'PASSUPDATE = UPDATE procedure’ | 
86 GLOBAL ROUTINE PASSUPDATE ( 
87 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
88 OR ! Unwind address if error 
89 ): NOVALUE = 
90 
91 oe 
4 FUNCTIONAL DESCRIPTION: 
94 PASSUPDATE implements the VAX-11 Pascal UPDATE procedure. It 
95 updates the current file component with the contents of the 
a8 file buffer. 
a8 CALLING SEQUENCE: | 
| 


UEWN Oo 


ERROR - Optional. If specified, the address to unwind to 
if an error occurs. 


IMPLICIT INPUTS: 


ERRDURUPD = Error during UPDATE 


BEGIN 


SDOOSOOOSCOSCOCSCOOSOOCOCOSCOOSSOSSSOSSSO SOO SCOOSCOOCOCOCO OOOO OOCOOOOOCOOOOOOOOO (UC 
DOOOOOOOO OOO OW WW 00 00 09 09 09 09 09 SIN NINN NN NSN NA AAA AAA AAA MINIT 
MOOD VN FWD 0 OONOA UE WN O ODNOU EWN (OO OONA UE WW OOO NAUES WR OOO 

PRN te te a tt 8 — — 4 9 ss 2s as ts 9 as —s —s —» —s a 2 2 a a is ss as os a a 2s 2 2 2 

Bee Oe Be Se Se Be Se Be Se Se Se Se SH Ss See Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se ae Se Fe Se Se Se FH Se Se ae Se Se Se Se ae Se Se Se Se sees ase Se seuse 


Be Se Se Oe Be Oe Oe Se Be Oe Be Be Se Fe Ge Se Se Se Se Se Ge Fe Ge Se Se Se Se Be Se Se Se Be Se Se BH Se Se HSH SH Se SH Se Se Sees Se SESH SHE SESH ee ee BH Seas 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
PS eet UD PO ODNOUFUUUMODD OPO mUe eS 


7 
8 
9 
0 
1 
¢ NONE 
4 i IMPLICIT OUTPUTS: | 
° NONE | 
3 ROUTINE VALUE: 
0 NONE | 
¢ SIDE EFFECTS: 
: NONE 
$ SIGNALLED ERRORS: 
8 FILNOTOPE = File not open 
u FILNOTINS = File is not in Inspection mode 
0 FILNOTDIR = file is not opened for direct access 
1 FILNOTKEY = file is not opened for keyed access 
4 CURCOMUND - current component is undefined 
KEYCHANOT = key value change is not allowed 
: KEYDUPNOT = key value duplication is not allowed 
6 
7 
8 
9 
0 
1 


| 
| 
| 
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1-004 ASSUPDATE = UPDATE procedure 12-8 08- 1 3be EEL PASRTL SRC IPASUPDATE .B 2;1 * (3) 

0 LOCAL 

0 FCB: REF SPASEF EB .CONTHOL BLOCK. ! File Control Block 

8 a eiuee BLOCK C, BYTE], Dtenes SUPDATE 

: us from 

0 PFV_ADDR: VOLATILE, ! Enable argument 

0 UNWIND_ACT: VOLATILE, ' Enable argument 

9 ERROR_ADDR: VOLATILE; ! Enable argument 

1 BIND 

: RAB = FCB: REF BLOCK C, BYTE]; ' RMS RAB 

1 BUILTIN 

: ACTUALCOUNT; | 

1 ENABLE 

} PASSSIO_HANDLER °FV_ADDR, UNWIND_ACT, ERROR_ADDR); 


IF ACTUALCOUNT () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 


+ 
Set PFV address enable argument. 


PFV_ADDR = PFV CPFVS$R_PFV]; 

14 

Validate and lock PFV 

PASSSVALIDATE_PFV (PFV CPFV$R_PFVJ; FCB); 

'+ 
Set unwind action to unlock file. 
UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 


'¢ 
Open file if it should be implicitly opened. 


MEUM OS OONAUEWN $0 OODNAU EWN OO ONAUE WN" OOONOULE Wr 


iF Not -PFV CPFVS$V_VALID] 
PASSSOPEN_IMPLICIT (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 
'¢ 
Verify that the file is open. 
aoe -PFV CPF V$V_OPEN] 
SPASSIO_ERROR (PAS$_FILNOTOPE 0); 


'¢ 
! Verify that the file is in Inspection mode. 


ee ed a a a ad ed ed cd a ce ced ee eed ae a ce ce ee ce ce cl ec ce a ee ee ee ee ee cc ce ei ee th el cel ee ee cae el le ee ee ee eed ec ee ees 
ERD Dy DAD £4 pet tet tet ert IT PP ay GA Et REE A et ttt At a a ye 
DOOONO UE WR 0 OONOA UENO OD NOAU EWN OO DNOAUE WN O OONAY SWN "OW ONOULS WW 
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1-808 PASSUPDATE = UPDATE procedure 1e=380- 1382 13:59:55 PASRTL. SRC ]PASUPDATE .832; 1 9° (3) 
; 199 0260 = 
; 200 0261 
; 201 0 6¢ IF NOT .FCB CFCBSV_INSPECTION] 
: oe 026 THEN 
; 0 0264 SPASSIO_ERROR (PAS$_FILNOTINS,O); 
> 204 0265 
3 209 0 96 + 
; 206 026 ' Verify that the file was opened either direct or keyed. 
3 gor 0268 = 
; 208 0269 
; 209 0270 FAB = .RAB CRABSL_ FAB); 
3 310 ae IF FCB CFCBS$V_SEQUENTIAL] ! Neither DIRECT nor KEYED 
PH sig 0978 IF hae CFABSB_ORG] NEQ FABSC_IDX ' Not indexed? 
> 214 0275 : SPASSIO_ERROR (PAS$_FILNOTDIR,O) 
s 213 0576 2 E ' Must be INDEX 
: 216 0277 : SPAS$IO_ERROR (PAS$_FILNOTKEY,0); 
Se al Os 78 
; 218 0279 2 + 
s 2? 0280 2 ' Set RSZ appropriately. 
: 220 0281 2 = 
3 @el pete 2 
5 $s¢ 0283 2 IF .FCB CFCBSV_VARYING) 
3 ge 0284 2 T 
: 224 0285 2 RAB CRABSW_RSZ] = .(.PFV CPFVSA_BUFFER])<0,16,0> 
> 225 0286 5 ELSE 
: 22 0287 RAB CRAB$W_RSZ) = .RAB CRABS$W_USZ); 
3 ger 0288 2 
; 228 0289 2 RAB CRABSL_RBF) = .RAB CRABSL_UBF); 
;. ey 0290 § 
3 ¢s0 0291 1+ 
3 go 5454 2 ' Do the SUPDATE to update the current component. 
; 232 0293 2 !- 
; 233 0294 2 
; 234 0295 2 STATUS = SPASSRMS_OP (SUPDATE (RAB=.RAB)); 
3; 235 0296 2 IF NOT .STATUS 
; 236 0297 2 THEN ; 
3s esr 0298 2 '¢ Sei ‘ é ‘ 
3 ese 0299 2 ' $UPDATE failed. Give specific or generic error as appropriate. 
: 239 0300 § - 
; 240 0301 
: 241 B06 SELECTONE .STATUS OF 
3 seg 030 SET 
; 26 0304 
3 264 0305 é CRMS$_CUR): 
; $e? Bane SPASS$IO_ERROR (PAS$_CURCOMUND); ! Current component undefined 
: 247 0308 : CRMS$_CHG): 
3 $e8 Oatp SPAS$IO_ERROR (PAS$_KEYCHANOT); ! Key value change not allowed 
3 $39 0311 CRMS$_DUP): , 
; 23 O31g SPASSIO_ERROR (PAS$_KEYDUPNOT); ! Key value duplication not allowed 
; 35 0314 COTHERWISE): 
: $2¢ Bel? SPASSIO_ERROR (PASS$S_ERRDURUPD); ! Error during UPDATE 


2 ee ———_ . . rc 
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PASSUPDA TE = UPDATE procedure beatae Lee PASRTL.SRC JPASUPDATE. yr 2:1 
> 256 0317 TES; 
3 gor 0 18 
: 58 031 '¢ 
; 259 0320 i Undefine file buffer 
3 560 0321 i Cancel previous LOCATE 
3 61 0 é i Indicate successful operation 
3 $06 0 ' Unlock the file 
; 26 0324 in 
3 264 0325 
; 265 0326 FCB CFCBSL_STATUS) = 0; 
> 266 0327 FCB CFCBSV-LOCATEJ = 0; 
; 267 0328 PFV CPFV$V_DFB) = 0; 
: 268 0309 PFV CPFVSV~LOCK) = 0; 
; 269 0330 
s 270 0331 2 RETURN; 
s ery O38 2 
. gee 0333 «#1 END; ' End of routine PASSUPDATE 
TITLE PASSUPDATE UPDATE procedure 
.IDENT \1-004\ 
-EXTRN PASSUPDATE, PAS$S$IO_HANDLER 
.EXTRN PASS$S$V E PFV 
-EXTRN PASSSOPEN_IMPLCICIT 
.EXTRN PASS$S$SIGNAL PASSK F ILNOTOPE 
-EXTRN PAS$K_FILNOTINS 
.EXTRN PASSK“FILNOTDIR 
.EXTRN PASSK~FILNOTKEY 
.EXTRN SYS$U DATE, sPASSK _CURCOMUND 
.EXTRN PAS$K_KEYCHANOT 
RN PASSK ~KEYDUPNOT 
-EXTRN PASS$KTERRDURUPD 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 
00cc 00000 -ENTRY PASSUPDATE, Save R2,R3,R6,R7 ; 
53 000000006 00 9E 00002 MOVAB PASSSSIGNAL , P3 : 
5E 08 C2 00009 SUBL2 SP ; 
7E D4 0000C CLRL ERROR ADDR : 
04 AE 7C QOOOE CLRQ UNWIND ACT 3 
6D 00D8 CF DE 00011 MOVAL 17$, (FP) : 
02 6C 91 00016 CMPB. ss (APS, 2 : 
04 1F 9019 BLSSU _1$ : 
6E 08 AC 00 0001B MOVL ERROR, ERROR_ADDR : 
56 04 AC ODO QOOIF 1$ MOVL F : 
08 AE 56 D0 0023 MOVL R6, PFV_ADDR : 
000000006 00 16 00027 JSB PASSSVACIDATE_PFV : 
04 AE 01 4 BR8 ) MOVL #1, UNWIND_ACT : 
06 06 A6 €E8 00031 BLBS 6 3 
000000006 00 16 00035 JSB PASSSOPEN_IMPLICIT ; 
08 07 Ab 05 €0 00038 2$: BBS #5, 7(R6), 3$ : 
it 04 +498 CLRL - ) 3 
7E 00G 8F 9A 00042 MOVZBL #PASS$K_FILNOTOPE, -(SP) : 
9 11 4944 BRB : 
08 FD AT 3 £0 00048 3$: BBS -3(FCB), 4$ ; 
E D4 00040 CLRL = ep) ; 
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PASSUPDATE UPDATE procedure 16-Sep-1984 02:12:11 AX-11 Bliss-32 V4.0-74 Page 7 PA 
1-004 PASSUPDATE - UPDATE procedure 1o-g08- 138% 95:4 59 EPASRTL SRE PASUPDATE.B32;1 ° (3) Tal 
7E 006 8F 9A 0004F MOVZBL #PASSK_FILNOTINS, -(SP) ; 
\¢ 11 9093 BRB ‘ 
50 ee 00 0055 4$: MOVL 60(FCB), FAB : 0270 
18 FC OA? : 0059 BLBC <-4(FCB), 7$ : 0271 
20 1D AQ 1 0005p CMPB 29 (FAB), #32 : 0273 
9 13 90061 BEQL 4 : 
E 04 9063 CLRL © = (SP) + 0275 
7E 006 BF 9A 0006 MOVZBL M#PASS$K_FILNOTDIR, -(SP) : 
06 11 00069 BRB 4s : 
7E D4 00068 S$: eS: : 0277 
7 00G 8F 9A 9006p MOVZBL M#PAS$K_FILNOTKEY, -(SP) : | 
6 02 FB 909 1 6$: CALLS #2, PASS$$SIGNAL : 
04 00074 RET : 
07 FB AT 02 £1 00075 7$: BBC #2, -B(FCB), 8$ : 0283 
22. A? 00 86 BO 0007A MOVW @0(R6), 34(FCB) > 0285 
05 11 0007F BRB 9$ : 
22. «AT 20 AZ BO 00081 8$: MOVW 32(FCB), 34(FCB) : 0287. 
28 «OA? 24 AZ? DO 00086 9$: MOVL 36(FCB), 40(FCB) ; 0289 | 
57 DD 00088 10$ PUSHL FCB : 0295 | 
000000006 00 01 FB 0008D CALLS #1, SYSSUPDATE : 
OD 50 £8 00094 BLBS $$STATUS, 11$ : | 
0001825A 8F 50 D1 00097 CMPL  $$STATUS. #98906 ; | 
04 12 0009E BNEQ 11$ : | 
£7 FF A? €8 OOOAO BLBS -1(FCB), 10$ 2 
52 50 DO OO0A4 118: MOVL  $$STATUS, STATUS : 
35 52 EB O00A7 BLBS = STATUS, : 0296 
00018484 &F 52 D1 OOOAA CMPL STATUS, #99508 : 0305) 
06 12 00081 BNEQ 1 : 
7E 00G 8F 9A 00083 MOVZBL #PAS$K_CURCOMUND, -(SP) : 0306 | 
22 11 00087 BRB ; 
0001849C BF 52 D1 000B9 128: CMPL STATUS, #99484 ; 0308 
06 12 000C0 BNEQ : 
7E 006 8F 9A 000C2 MOVZBL #PASS$K_KEYCHANOT, -(SP) > 0309 | 
13 11 000C6 BRB ; 
000184EC 8F 52 D1 000C8 138: CMPL STATUS, #99564 > 0311. 
06 12 OOOCF BNEQ : 
7E 006 8F 9A 00001 MOVZBL #PASS$K_KEYDUPNOT, -(SP) : 0312 | 
04 11 00005 BRB 15$ : 
7E 006 8F 9A 00007 148: MOVZBL #PASS$K_ERRDURUPD, -(SP) > 0315) 
63 01 FB 000DB 15$: CALLS #1, PASSSSIGNAL ; | 
04 OO0DE RET : 
D4 AZ D4 OOODF 168: CLRL -44(FCB) : 0326) 
FE 01 8A OO00E2 BICB2 #1, -2(FCB) > 032? | 
06 Ab 8002 8F AA OO0E6 BICW2 #32770, 6(R6) : 0329 
04 OO0EC RET : 0333 | 
0000 OOO0ED 17%: -WORD Save nothing ; 0201. 
50 08 AC DO OOOEF MOVL  ®8(AP), RO : 
50 04 AO DO O00F3 MOVL  4(RO). RO ; | 
F4 AQ 9F OOOF7 PUSHAB ERROR ADDR : 
F8 AO OF OOF A PUSHAB UNWIND ACT ; 
FC Ad 9F OOOFD PUSHAB PFV : 
03 DD 00100 PUSHL #5 : 
5E bb 0102 PUSHL SP ; 
7E 04 AC 7D 00104 MOVQ. 4(AP), =( : 
000000006 00 03 FB 00108 CALLS #3, PAS$$IO_HANDLER : 
04 0010F RET ; 
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; Routine Size: 272 bytes, Routine Base: _PASSCODE + 0000 


i She 0333 1 1 <BLF/PAGE> 


- 


16- ge 

T80n TE BARSUBDRTE’© UPDATE procedure 2 8ep=1984 19:59:59 EPASRTL SREPASUPDATE B92; 1 
37 033 1 END ! End of module PASSUPDATE 

; 278 8 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: PASSCODE 272 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

Eee eg ade OS. See Symbols -------=- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 15 0 581 00:01.0 

; ~$255$DUA28:CPASRTL. OBJ JPASLIB.L32;1 427 98 22 33 00:00.5 


COMMAND QUALIFIERS 


PLESSPCHE COST FELD, ENIT IAL OPT IALEED/UGTRALE/L E58 L501 PREUPDR TE /OB 908.5 sPRSUPBATE MSRC$:PASUPDATE/UPDATE=(ENHS : PASUPDATE 


Size: 272 code + 0 data bytes 
Run Time: 00:08.2 

Elapsed Time: 00:23.5 

Lines/CPU Min: 6et3 
Lexemes/CPU-Min: 17941 

peace Used: 118 pages 

Compilation Complete 
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